﻿Public Class Vendedores

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label30.Text = DateTime.Now
    End Sub

    Private Sub btnalta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnalta.Click

        Dim oVendedoresNegocios As New Negocios.Nvendedores

        Dim oVendedores As New Entidades.Evendedores

        If txtapenom.TextLength = 0 Then
            MsgBox("Debe ingresar el apellido y nombre o denominacion", MsgBoxStyle.DefaultButton1, Title:="M.R.G SYSTEM")
            txtapenom.Focus()
            Exit Sub
        End If

        oVendedores.fechaalta = UCase(fecha.Text)
        oVendedores.porcen = UCase(txtporcentaje.Text)
        oVendedores.apenom = UCase(txtapenom.Text)
        oVendedores.estadocivil = UCase(comboestacdo.SelectedValue)
        oVendedores.apoderado = UCase(txtapenomapo.Text)
        oVendedores.nacional = UCase(txtnacionalidad.Text)
        oVendedores.paisnac = UCase(txtpaisnac.Text)
        oVendedores.tipodoc = UCase(combotipodoc.Text)
        oVendedores.numdoc = UCase(txtnumdoc.Text)
        oVendedores.telfijo = UCase(txttelfijo.Text)
        oVendedores.telmovil = UCase(txttelmovil.Text)


        Try
            If oVendedoresNegocios.guardarvendedores(oVendedores) Then
                MsgBox("Está seguro que desea guardar los datos?", MsgBoxStyle.YesNoCancel)

                MsgBox("Los datos se cargaron correctamente", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Carga fallida" + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try

        txtporcentaje.Text = ""
        txtapenom.Text = ""
        txtapenomapo.Text = ""
        txtnacionalidad.Text = ""
        txtpaisnac.Text = ""
        txttelfijo.Text = ""
        txttelmovil.Text = ""
        
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If (Len(txtnumdoc.Text) = 0) Then
            MsgBox("El numero de DNI es un  campo obligatorio", MsgBoxStyle.Exclamation)
            txtnumdoc.Focus()
            Exit Sub
        End If
        Dim oVendedoresNegocios As New Negocios.Nvendedores
        Dim oVendedores As New Entidades.Evendedores
        oVendedores.numdoc = UCase(txtnumdoc.Text)
        Try
            If oVendedoresNegocios.eliminarvendedores(oVendedores) Then
                MsgBox("El vendedor se elimino correctamente", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("El vendedor no se pudo eliminar" + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
        txtporcentaje.Text = ""
        txtapenom.Text = ""
        txtapenomapo.Text = ""
        txtnacionalidad.Text = ""
        txtpaisnac.Text = ""
        txttelfijo.Text = ""
        txttelmovil.Text = ""

    End Sub

    Private Sub btnmodificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmodificar.Click
        Dim oVendedoresNegocios As New Negocios.Nvendedores

        Dim oVendedores As New Entidades.Evendedores

        If txtapenom.TextLength = 0 Then
            MsgBox("Debe ingresar el apellido y nombre o denominacion", MsgBoxStyle.DefaultButton1, Title:="M.R.G SYSTEM")
            txtapenom.Focus()
            Exit Sub
        End If

        oVendedores.fechaalta = UCase(fecha.Text)
        oVendedores.porcen = UCase(txtporcentaje.Text)
        oVendedores.apenom = UCase(txtapenom.Text)
        oVendedores.estadocivil = UCase(comboestacdo.SelectedValue)
        oVendedores.apoderado = UCase(txtapenomapo.Text)
        oVendedores.nacional = UCase(txtnacionalidad.Text)
        oVendedores.paisnac = UCase(txtpaisnac.Text)
        oVendedores.tipodoc = UCase(combotipodoc.Text)
        oVendedores.numdoc = UCase(txtnumdoc.Text)
        oVendedores.telfijo = UCase(txttelfijo.Text)
        oVendedores.telmovil = UCase(txttelmovil.Text)


        Try
            If oVendedoresNegocios.modificarvendedores(oVendedores) Then
                MsgBox("Está seguro que desea modificar los datos?", MsgBoxStyle.YesNoCancel)

                MsgBox("Los datos se modificaron correctamente", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Modificacion fallida" + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try

        txtporcentaje.Text = ""
        txtapenom.Text = ""
        txtapenomapo.Text = ""
        txtnacionalidad.Text = ""
        txtpaisnac.Text = ""
        txttelfijo.Text = ""
        txttelmovil.Text = ""


    End Sub

    Private Sub btnbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click
        Dgvendedores.Visible = True

        Dim ovendedoresNegocio As New Negocios.Nvendedores
        Dim ovendedores As New Entidades.Evendedores

        Dgvendedores.DataSource = ovendedoresNegocio.buscarvendedores(txtbuscar.Text)
    End Sub

    Private Sub Vendedores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ogeneralNegocio As New Negocios.Nvendedores
        Dim ogeneral As New Entidades.Evendedores

        DGgeneral.DataSource = ogeneralNegocio.buscageneral
    End Sub
End Class